home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / teletype message (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  63 lines
  1. 5 gosub60100:clr:poke53281,.:poke53280,.
  2. 10 restore:print"[147]":gosub2000
  3. 15 print"   [205]$="chr$(34);:poke212,.:print"[215][146][212][200][201][211] [216][146][201][211] e[146][199][210][197][193][212]!!"chr$(34);
  4. 16 print":[199][207][211][213][194]1000"
  5. 20 gosub2000
  6. 30 a=peek(203):ifa<>60anda<>1then30
  7. 40 ifa=60then10
  8. 50 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  9. 60 ifer<>63thenend
  10. 70 load"hello connect",8
  11. 90 :
  12. 100 data "              [212][197][204][197][212][217][208][197] 64"
  13. 110 data "              [194]y [201]an [193]dam"
  14. 120 data " "
  15. 130 data " "
  16. 140 data "   [154][212]o use [212][197][204][197][212][217][208][197][154], copy lines 1000 -"
  17. 145 data "1130 [154]to your program. [212]hen, put your"
  18. 148 data "message in [205]$ [154]and [199][207][211][213][194]1000[154]. [212]he"
  19. 150 data "[194][193][211][201][195] code:"
  20. 160 data " "
  21. 170 data "loadstar"
  22. 180 data " "
  23. 190 data "[154]would produce the following output:"
  24. 200 data " "
  25. 210 data "[151][212][200][201][211] [152][201][211] [199][210][197][193][212]!!"
  26. 220 data " "
  27. 230 data " "
  28. 240 data "[154][208]ress [211][208][193][195][197][154] to see the demo again"
  29. 250 data "[208]ress [210][197][212][213][210][206][154] to return to [204][207][193][196][211][212][193][210]"
  30. 260 data "loadstar"
  31. 1000 poke 54273,99:poke 54278,250
  32. 1010 poke 54276,129
  33. 1030 for i=1 to len(m$)
  34. 1040 print" [146][157]";
  35. 1050 for j=1 to 19 :next
  36. 1060 poke54296,15
  37. 1070 printmid$(m$,i,1);
  38. 1080 poke54296,0
  39. 1090 next:print
  40. 1100 poke 54276,32: poke54296,15
  41. 1110 for j=1 to 299 :next
  42. 1120 poke 54276,0: poke54296,0
  43. 1130 return
  44. 2000 readm$:ifm$="loadstar"thenreturn
  45. 2010 gosub 1000:goto2000
  46. 60100 poke53280,1:poke53281,1
  47. 60110 printchr$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  48. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  49. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  50. 60140 fora=217to242:pokea,peek(a)or128:next
  51. 60150 print"";:m$="          loadstar presents:":gosub1000
  52. 60160 print"                              [146]"
  53. 60170 print"           teletype message   [152] "
  54. 60180 print"                              [152] "
  55. 60190 print"             by  ian adam     [152] "
  56. 60200 print"                              [152] "
  57. 60210 print"            copyright 1987    [152] "
  58. 60220 print"                              [152] "
  59. 60230 print"         [152]                      "
  60. 60240 print"";:m$="        press space to continue":gosub1000
  61. 60250 ifpeek(203)<>60then60250
  62. 60260 return
  63.